home *** CD-ROM | disk | FTP | other *** search
/ SuperHack / SuperHack CD.bin / SCRIPTZ / DARK.EXE / Bawt / System / EVENTS.INI < prev    next >
INI File  |  1997-03-20  |  23KB  |  449 lines

  1. [Events]
  2. n0=;=====================CHANNEL PROTECTION=============================
  3. n1=@10:ON TEXT:*:#: {
  4. n2=  if (($nick == %master) || ($level($nick($address,3)) == MASTER) || ($level($nick($address,3)) == 50) || ($nick isop $chan))  { halt }
  5. n3=  if (%length == on) {
  6. n4=    if ($len($parms) > %m.length) { 
  7. n5=      set %length $len($parms) 
  8. n6=      %over = %length - %m.length
  9. n7=      inc %kick.count 1
  10. n8=      kick $chan $nick 11,2Long Text Flood4,2 %m.length Max Characters1,0 11,2You Used1,0 9,01 $+ $len($parms)1,01,0 4,1That's %over Characters Too Many!
  11. n9=      else { goto next1 }
  12. n10=    }
  13. n11=  }
  14. n12=  :next1
  15. n13=  If (%burc == on) {
  16. n14=    if ( isin $parms) { inc %kick.count 1 | kick $chan $nick 1,0->11,2Color Kick!1,0 -> $+ %kick.count $+ <- %ver }
  17. n15=    if ( isin $parms) { inc %kick.count 1 | kick $chan $nick 1,0->11,2Underline Kick!1,0 -> $+ %kick.count $+ <- %ver }
  18. n16=    if ( isin $parms) { inc %kick.count 1 | kick $chan $nick 1,0->11,2Bold Kick!1,0 -> $+ %kick.count $+ <- %ver } 
  19. n17=    if ( isin $parms) { inc %kick.count 1 | kick $chan $nick 1,0->Reverse Kick!1,0 -> $+ %kick.count $+ <- %ver } 
  20. n18=    else { goto next2 }
  21. n19=  }
  22. n20=  :next2
  23. n21=  if (%old == on) {
  24. n22=    if ((trout isin $parms) || (yo momma isin $parms)) {  
  25. n23=      inc %kick.count 1 
  26. n24=      kick $chan $nick That stupid SHIT is old -> $+ %kick.count $+ <- %ver
  27. n25=      else { goto next3 }
  28. n26=    }
  29. n27=  }
  30. n28=  :next3
  31. n29=  if (%annoy == on) {
  32. n30=    if ((!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! isin $parms) || (                                 isin $parms) || (yo momma isin $parms)) { 
  33. n31=      inc %kick.count 1 
  34. n32=      kick $chan $nick 4Annoyance12AutoKick -> $+ %kick.count $+ <- %ver 
  35. n33=      else { goto next4 }
  36. n34=    }
  37. n35=  }
  38. n36=  :next4
  39. n37=  if (%swear == on) {
  40. n38=    if (fuck isin $parms)  { goto swear }
  41. n39=    if (shit isin $parms)  { goto swear }
  42. n40=    if (bitch isin $parms)  { goto swear }
  43. n41=    if (ass isin $parms) { goto swear }
  44. n42=    else { goto next5 }
  45. n43=    :swear
  46. n44=    inc %kick.count | kick $chan $nick 14[6Swear Detected14] 2-> $+ %kick.count $+ <- %ver
  47. n45=  }
  48. n46=  :next5
  49. n47=  If (%caps == on) {
  50. n48=    if $len($parms) >= 7 { goto next6 }
  51. n49=    set %num.caps 0
  52. n50=    set %counter $len($parms)
  53. n51=    :start1
  54. n52=    if (%counter == 0) { goto testcaps }
  55. n53=    if ($asc($mid(%counter,1,$parms)) >= 65 && $asc($mid(%counter,1,$parms)) <= 90 ) { inc %num.caps 1 }
  56. n54=    dec %counter 1
  57. n55=    goto start1 
  58. n56=    :testcaps
  59. n57=    if (%num.caps == 0) { goto next2 | unset %num.caps | unset %counter }
  60. n58=    math $len($parms) / %num.caps 
  61. n59=    if (%Solution < 2) { inc %kick.count | kick $chan $nick 14[6CAPS DETECTED14] 2-> $+ %kick.count $+ <- %ver | unset %num.caps | unset %counter }
  62. n60=  }
  63. n61=  :next6
  64. n62=  if (%text == on) { 
  65. n63=    if (%text [ $+ [ $nick ] ] = 6) { goto boot }
  66. n64=    if (%text [ $+ [ $nick ] ] = 1) { inc %text [ $+ [ $nick ] ] 1 | goto next4 }
  67. n65=    if (%text [ $+ [ $nick ] ] <= 5 ) { goto ok }
  68. n66=    :ok
  69. n67=    .timer 1 6 /unset %text [ $+ [ $nick ] ]
  70. n68=    inc %text [ $+ [ $nick ] ] 1
  71. n69=    goto next7
  72. n70=    :boot
  73. n71=    inc %kick.count | kick $chan $nick 14[10CHANNEL 4FLOOD14] 2-> $+ %kick.count $+ <- %ver | ban -u30 $chan $nick
  74. n72=    unset %text [ $+ [ $nick ] ]
  75. n73=    else goto next7
  76. n74=  }
  77. n75=  :next7
  78. n76=  if (%repeat == on) {
  79. n77=    if (%repeat1 [ $+ [ $nick ] ]  == $parms) { inc %kick.count | kick $chan $nick 14[6REPEAT14] 14[2REPEAT14] 14[12REPEAT14] 2-> $+ %kick.count $+ <- %ver | ban -u30 $chan $nick 2 }
  80. n78=    set %repeat1 [ $+ [ $nick ] ] $parms
  81. n79=    .timer 1 5 /unset %repeat1 [ $+ [ $nick ] ] 
  82. n80=    else goto next8
  83. n81=  }
  84. n82=  :next8
  85. n83=  if (%ads == on) {
  86. n84=    if($chr(32) isin $parms) { inc %kick.count | kick $chan $nick 14[2Inviting/Advertising 6Suspected14] 0210 6Second Kick/Ban 2-> $+ %kick.count $+ <- %ver | ban -u10 $chan $nick 2 }
  87. n85=    else goto theend
  88. n86=  }
  89. n87=  halt
  90. n88=  :thend
  91. n89=  :end
  92. n90=}
  93. n91=1:ON ACTION:#: {
  94. n92=  if ($nick isop $chan) { halt }
  95. n93=  if (%length == on) {
  96. n94=    if ($len($parms) > %m.length) { 
  97. n95=      set %length $len($parms) 
  98. n96=      %over = %length - %m.length
  99. n97=      inc %kick.count 1
  100. n98=      kick $chan $nick 11,2Long Text Flood4,2 %m.length Max Characters1,0 11,2You Used1,0 9,01 $+ $len($parms)1,01,0 4,1That's %over Characters Too Many!
  101. n99=      else { goto next1 }
  102. n100=    }
  103. n101=  }
  104. n102=  :next1 
  105. n103=  If (%burc == on) {
  106. n104=    if ( isin $parms) { inc %kick.count 1 | kick $chan $nick 1,0->11,2Color Kick!1,0 -> $+ %kick.count $+ <- %ver }
  107. n105=    if ( isin $parms) { inc %kick.count 1 | kick $chan $nick 1,0->11,2Underline Kick!1,0 -> $+ %kick.count $+ <- %ver }
  108. n106=    if ( isin $parms) { inc %kick.count 1 | kick $chan $nick 1,0->11,2Bold Kick!1,0 -> $+ %kick.count $+ <- %ver } 
  109. n107=    if ( isin $parms) { inc %kick.count 1 | kick $chan $nick 1,0->Reverse Kick!1,0 -> $+ %kick.count $+ <- %ver } 
  110. n108=    else { goto next2 }
  111. n109=  }
  112. n110=  :next2
  113. n111=  if (%old == on) {
  114. n112=    if ((trout isin $parms) || (yo momma isin $parms)) {  
  115. n113=      inc %kick.count 1 
  116. n114=      kick $chan $nick That stupid SHIT is old -> $+ %kick.count $+ <- %ver
  117. n115=      else { goto next3 }
  118. n116=    }
  119. n117=  }
  120. n118=  :next3
  121. n119=  if (%annoy == on) {
  122. n120=    if ((!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! isin $parms) || (                                 isin $parms) || (yo momma isin $parms)) { 
  123. n121=      inc %kick.count 1 
  124. n122=      kick $chan $nick 4Annoyance12AutoKick -> $+ %kick.count $+ <- %ver 
  125. n123=      else { goto next4 }
  126. n124=    }
  127. n125=  }
  128. n126=  :next4
  129. n127=  if (%swear == on) {
  130. n128=    if (fuck isin $parms)  { goto swear }
  131. n129=    if (shit isin $parms)  { goto swear }
  132. n130=    if (bitch isin $parms)  { goto swear }
  133. n131=    if (ass isin $parms) { goto swear }
  134. n132=    else { goto next5 }
  135. n133=    :swear
  136. n134=    inc %kick.count | kick $chan $nick 14[6Swear Detected14] 2-> $+ %kick.count $+ <- %ver
  137. n135=  }
  138. n136=  :next5
  139. n137=  If (%caps == on) {
  140. n138=    if $len($parms) >= 7 { goto next6 }
  141. n139=    set %num.caps 0
  142. n140=    set %counter $len($parms)
  143. n141=    :start1
  144. n142=    if (%counter == 0) { goto testcaps }
  145. n143=    if ($asc($mid(%counter,1,$parms)) >= 65 && $asc($mid(%counter,1,$parms)) <= 90 ) { inc %num.caps 1 }
  146. n144=    dec %counter 1
  147. n145=    goto start1 
  148. n146=    :testcaps
  149. n147=    if (%num.caps == 0) { goto next2 | unset %num.caps | unset %counter }
  150. n148=    math $len($parms) / %num.caps 
  151. n149=    if (%Solution < 2) { inc %kick.count | kick $chan $nick 14[6CAPS DETECTED14] 2-> $+ %kick.count $+ <- %ver | unset %num.caps | unset %counter }
  152. n150=  }
  153. n151=  :next6
  154. n152=  if (%text == on) { 
  155. n153=    if (%text [ $+ [ $nick ] ] = 6) { goto boot }
  156. n154=    if (%text [ $+ [ $nick ] ] = 1) { inc %text [ $+ [ $nick ] ] 1 | goto next4 }
  157. n155=    if (%text [ $+ [ $nick ] ] <= 5 ) { goto ok }
  158. n156=    :ok
  159. n157=    .timer 1 6 /unset %text [ $+ [ $nick ] ]
  160. n158=    inc %text [ $+ [ $nick ] ] 1
  161. n159=    goto next7
  162. n160=    :boot
  163. n161=    inc %kick.count | kick $chan $nick 14[10CHANNEL 4FLOOD14] 2-> $+ %kick.count $+ <- %ver | ban -u30 $chan $nick
  164. n162=    unset %text [ $+ [ $nick ] ]
  165. n163=    else goto next7
  166. n164=  }
  167. n165=  :next7
  168. n166=  if (%repeat == on) {
  169. n167=    if (%repeat1 [ $+ [ $nick ] ]  == $parms) { inc %kick.count | kick $chan $nick 14[6REPEAT14] 14[2REPEAT14] 14[12REPEAT14] 2-> $+ %kick.count $+ <- %ver | ban -u30 $chan $nick 2 }
  170. n168=    set %repeat1 [ $+ [ $nick ] ] $parms
  171. n169=    .timer 1 5 /unset %repeat1 [ $+ [ $nick ] ] 
  172. n170=    else goto next8
  173. n171=  }
  174. n172=  :next8
  175. n173=  if (%ads == on) {
  176. n174=    if($chr(32) isin $parms) { inc %kick.count | kick $chan $nick 14[2Inviting/Advertising 6Suspected14] 0210 6Second Kick/Ban 2-> $+ %kick.count $+ <- %ver | ban -u10 $chan $nick 2 }
  177. n175=    else goto theend
  178. n176=  }
  179. n177=  halt
  180. n178=  :thend
  181. n179=  :end
  182. n180=}
  183. n181=#clonedetect start
  184. n182=@1!:ON JOIN:#: {
  185. n183=  %clone.c = 1 | %clones = $nick | %ch.c = 0
  186. n184=  :next
  187. n185=  inc %ch.c
  188. n186=  if ($nick(%ch.c,$chan) ) {
  189. n187=    if ($address($nick,2) == $address($nick(%ch.c,$chan),2)) {
  190. n188=      if ($nick(%ch.c,$chan) == $nick) {
  191. n189=        goto next 
  192. n190=      }
  193. n191=      %clones = %clones  2&3  $nick(%ch.c,$chan)
  194. n192=      inc %clone.c 
  195. n193=    }
  196. n194=    goto next 
  197. n195=  }
  198. n196=  if (%clone.c > 1) {
  199. n197=    %cool.a2 = $token(2,64,$address($nick,3)) | %cool.a = $token(1,64,$address($nick,3))
  200. n198=    %clone.m =  14[2Clone Alert14]6 for 3 $+ $nick 2  %clone.c 6Clones3  %clones 2@ 14[6 $+ %cool.a $+ 2@06 $+ %cool.a2 $+ 14]
  201. n199=    echo -a %clone.m | msg $chan %clone.m 
  202. n200=  }
  203. n201=  if (%clone.c > %max.clones) {
  204. n202=    inc  %kick.count | ban -u60 $chan $nick | kick $chan $nick 14[6Max Clones %max.clones $+ 14] 2-> $+ %kick.count $+ <- %ver
  205. n203=    unset %clone.c | unset %clones | unset %ch.c
  206. n204=  }
  207. n205=}
  208. n206=#clonedetect end
  209. n207=;=====================CHANNEL PROTECTION END=========================
  210. n208=;=====================COMMAND CENTER==================================
  211. n209=#commands disabled
  212. n210=10:ON OP:%protchan: {
  213. n211=  if (($level($opnick($address,3)) == 80) || ($level($opnick($address,3)) == MASTER)) { mode $chan +ov $opnick }
  214. n212=  else {  
  215. n213=    if $nick == $me { halt }
  216. n214=    if $nick == %master { halt }
  217. n215=    if $nick == Chanserv { halt }
  218. n216=    else { mode $chan -o $opnick | msg $nick You Must Identify To Get Ops /msg $me Identify <passwd> }
  219. n217=  }
  220. n218=}
  221. n219=10:ON TEXT:*:?: {
  222. n220=  If $parm1 == help { notice $nick Msg Commands: identify op pass newpass hello | ignore -au7 $nick 3 }
  223. n221=  If $parm1 == hello {
  224. n222=    notice $nick Hello $nick $+ , This an Automated Bot Called %ver 
  225. n223=    .ignore -au15 $nick 3
  226. n224=  }
  227. n225=  ElseIf $parm1 == identify {
  228. n226=    if $parm2 == $null { notice $nick  Syntax Error: /msg $me identify <your password> - Ignored for 15 seconds | /.ignore -au30 $nick 3 | halt }
  229. n227=    if $readini passes.ini Passes $nick == $null { notice $nick You need to set a password first: /msg $me pass <your pass> | halt }
  230. n228=    if $readini passes.ini Passes $nick == $parm2 { /guser 80 $nick 3 | /auser 80 $nick | /notice $nick Adding Hostmask... Done. Added as level 80 | halt }
  231. n229=    Else { /notice $nick Access Denied: Incorrect Password. Ignored for 10 seconds. | /ignore -au10 $nick 4 | halt }
  232. n230=  }
  233. n231=  ElseIf $parm1 == pass { 
  234. n232=    if $parm2 == $null { notice $nick Syntax Error: Proper way to set a pass is: /msg $me pass <your password> - Ignored for 15 seconds | /.ignore -au30 $nick 3 | halt }
  235. n233=    if $parm3 == $null { notice $nick Need a password dude | halt }
  236. n234=    Elseif $readini passes.ini Passes $nick != $null { notice $nick You already have a password set! | halt }
  237. n235=    writeini passes.ini Passes $nick $parm2 
  238. n236=    notice $nick Password Set to $parm2 
  239. n237=    notice $nick To change it type ' /msg $me newpass <old password> <new password> '
  240. n238=    halt
  241. n239=  }
  242. n240=  ElseIf $parm1 == newpass {
  243. n241=    if $parm2 == $null { notice $nick Syntax Error: /msg $me op newpass <old pass> <new pass> - Ignored for 15 seconds | /.ignore -au30 $nick 3 | halt }
  244. n242=    if $readini passes.ini Passes $nick == $null { notice $nick You need to set a password first: /msg $me pass <your pass> | halt }
  245. n243=    Elseif $readini passes.ini Passes $nick == $parm2 { writeini passes.ini Passes $nick $parm3 | notice $nick Password changed to $parm3  | halt }
  246. n244=    Else { /notice $nick Access Denied: Incorrect Password. Ignored for 10 seconds. | /ignore -tnau10 $nick 4 | halt }
  247. n245=  }
  248. n246=  Else { /ignore -nu10 $nick 3 | /notice $nick Unknown Command ' $+ $parm1 $+ ' - Ignored for 10 seconds. | halt }
  249. n247=}
  250. n248=#commands end
  251. n249=+MASTER:ON TEXT:.unban*:*: {
  252. n250=  set %unban $parm2
  253. n251=  //mode $chan b
  254. n252=}
  255. n253=+MASTER:ON TEXT:.quit*:*:/quit $parm2*
  256. n254=+MASER:ON TEXT:.exit*:*:/quit $parm2* | exit
  257. n255=+MASTER:ON TEXT:.opme:#:/mode $chan +o $nick
  258. n256=+MASTER:ON TEXT:.deop*:#: { 
  259. n257=  if $parm2 == $me { halt }
  260. n258=  if $parm2 == %master { halt }
  261. n259=  if $level($parm2($address,3)) == MASTER { halt }
  262. n260=  else { mode $chan -o $parm2 }
  263. n261=}
  264. n262=+MASTER:ON TEXT:.op*:#:/mode $chan +o $parm2
  265. n263=+MASTER:ON TEXT:.topic*:#:/topic $chan $parm2*
  266. n264=+MASTER:ON TEXT:.kick*:#: { 
  267. n265=  if $parm2 == $me { msg $nick I Will Not Kick Myself }
  268. n266=  if $parm2 == %master { msg %master I'm Sorry Master I Cannot Kick You.... }
  269. n267=  if $level($parm2($address,3)) == MASTER { halt }
  270. n268=  else { kick $chan $parm2 You Were Kicked By ( $+ $nick $+ ) ( $+ $parm3* $+ ) }
  271. n269=}
  272. n270=+MASTER:ON TEXT:.ban*:#: {
  273. n271=  if $parm2 == $me { msg $nick I Will Not Ban Myself }
  274. n272=  if $parm2 == %master { msg %master I'm Sorry Master I Cannot Ban You.... }
  275. n273=  if $level($parm2($address,3)) == MASTER { halt }
  276. n274=  else { ban $chan $parm2 3  }
  277. n275=}
  278. n276=+MASTER:ON TEXT:.kb*:#: { 
  279. n277=  if $parm2 == $me { msg $nick I Will Not Kick/Ban Myself }
  280. n278=  if $parm2 == %master { msg %master I'm Sorry Master i Cannot Ban You... }
  281. n279=  if $level($parm2($address,3)) == MASTER { halt }
  282. n280=  else { kick $chan $parm2 You Were Kicked By ( $+ $nick $+ ) ( $+ $parm3* $+ ) | ban $chan $parm2 3 }
  283. n281=}
  284. n282=+MASTER:ON TEXT:.access*:#:/.guser 80 $parm2 3 | notice $parm2 You Have Been Added To My Protect List, There Are Also A Few Commands At Your Disposal type .commands in the channel window =) | msg $parm2 /msg $me pass <passwd> for your level 80 Password
  285. n283=+MASTER:ON TEXT:.add*:#:/.guser $parm3 $parm2 | notice $parm2 You have been added To My Protect List, Type .commands in the channel window to see your command list
  286. n284=+MASTER:ON TEXT:.remove*:#: { 
  287. n285=  if $parm2 == %master { msg $nick i Will Not Remove My Master's Access }
  288. n286=  else { .ruser $parm2 | notice $parm2 You Have Been Removed From My User List! }
  289. n287=}
  290. n288=+MASTER:ON TEXT:.shit*:#: {
  291. n289=  if $parm2 == $me { msg $nick I Will Not Shitlist Myself }
  292. n290=  if $parm2 == %master { msg %master I'm Sorry Master i Cannot Shitlist You... }
  293. n291=  if $level($parm2($address,3)) == MASTER { halt }
  294. n292=  else { .guser $parm2 3 | kick $chan $parm2 2,15^*-_-*^*-_-*^*-_-*^12,1SHITLISTED2,12,15^*-_-*^*-_-*^*-_-*^  | /ignore -nti $nick 2 | ban $chan $parm2 3 }
  295. n293=}
  296. n294=+MASTER:ON TEXT:.commands:#:/play $nick $mircdir $+ /bawt/mascmds.txt
  297. n295=+MASTER:ON TEXT:.voice*:#:mode $chan +v $parm2
  298. n296=+MASTER:ON TEXT:.unvoice*:#:mode $chan -v $parm2
  299. n297=+MASTER:ON TEXT:.opprot*:#: {
  300. n298=  if ($parm2 == On) { .enable #commands }
  301. n299=  if ($parm2 == Off) { .disable #commands }
  302. n300=  else { .disable #commands }
  303. n301=}
  304. n302=+MASTER:ON TEXT:.helpprot*:#: {
  305. n303=  msg $nick Format For Channel Protection! .prot <protection name>
  306. n304=  msg $nick burc,length, old, annoy, swear, caps, text, repeat, ads
  307. n305=  msg $nick i.e. .prot length on  OR .prot swear off
  308. n306=}
  309. n307=+MASTER:ON TEXT:.prot*:#: { 
  310. n308=  if $parm3 == $null { set % $+ $parm2 On }
  311. n309=  if $parm3 == On { set % $+ $parm2 On }
  312. n310=  if $parm3 == Off { set % $+ $parm2 Off }
  313. n311=  if $parm2 == $null { msg $nick No Prot To Set! }
  314. n312=}
  315. n313=+MASTER:ON TEXT:.do*:*:/describe $chan $parm2*
  316. n314=+MASTER:ON TEXT:.say*:*:/msg $chan $parm2*
  317. n315=+MASTER:ON TEXT:.addchan*:#: {
  318. n316=  if (%chanprot == $null) { 
  319. n317=    %chanprot = $parm2
  320. n318=  }
  321. n319=  else { 
  322. n320=    %chanprot = %chanprot $chr(44) $+ $parm2
  323. n321=    %chanprot = $remove(%chanprot,$chr(32)) 
  324. n322=  }
  325. n323=}
  326. n324=+MASTER:ON TEXT:.remchan*:#: {
  327. n325=  if (%chanprot == $null) { 
  328. n326=    msg $nick There Are No Channels Set To Protect 
  329. n327=    halt 
  330. n328=  }
  331. n329=  %temp = "" 
  332. n330=  %done = "" 
  333. n331=  %cut = $parm2
  334. n332=  %i = 0  
  335. n333=  %stop = $count(%chanprot,$chr(44)) + 1
  336. n334=  :start 
  337. n335=  inc %i
  338. n336=  if (%i > %stop) { goto end }
  339. n337=  elseif ($gettok(%chanprot,%i,44) = %cut) { 
  340. n338=    %done = Yes 
  341. n339=    goto start 
  342. n340=  }
  343. n341=  else { 
  344. n342=    %temp = %temp $gettok(%chanprot,%i,44)  
  345. n343=    goto start 
  346. n344=  }
  347. n345=  :end
  348. n346=  if (%done != Yes) { 
  349. n347=    msg $nick The Channel That You Chose To Remove From The List Of Channels Wasnt On The List Of Channels 
  350. n348=    halt 
  351. n349=  }
  352. n350=  %chanprot = $replace(%temp,$chr(32),$chr(44))  
  353. n351=  msg $nick Channesl To Protect Are: %chanprot   
  354. n352=  halt
  355. n353=}
  356. n354=+MASTER:ON KICK:#: {
  357. n355=  if (($opnick  == $me) || ($opnick == %master) || ($level($address($opnick,3) == 80)) || ($level($address($opnick,3) == MASTER))) { halt }
  358. n356=  else { kick $chan $opnick 12(4ñ12) $+ 10Protected User! $+ 12(4ñ12) | ban -u30 $chan $nick 3 }
  359. n357=}
  360. n358=+MASTER:ON DEOP:#: { 
  361. n359=  if (($nick  == $me) || ($nick == %master) || ($level($address($nick,3) == 80)) || ($level($address($nick,3) == MASTER))) { halt }
  362. n360=  else { mode $chan +o-o $opnick $nick | kick $chan $nick 12(4ñ12) $+ 10Protected User! $+ 12(4ñ12) | ban -u30 $chan $nick 3 }
  363. n361=}
  364. n362=+MASTER:ON BAN:#: { 
  365. n363=  if (($nick  == $me) || ($nick == %master) || ($level($address($nick,3) == 80)) || ($level($address($nick,3) == MASTER))) { halt }
  366. n364=  else { mode $chan -b-o $banmask $nick | kick $chan $nick 12(4ñ12) $+ 10Protected User! $+ 12(4ñ12) | ban -u30 $chan $nick 3 }
  367. n365=}
  368. n366=+MASTER:ON OP:#:mode $chan +v $opnick
  369. n367=10:ON KICK:#: {
  370. n368=  if ($knick == $me) { 
  371. n369=    if (($nick == %master) || ($level($nick($address,3)) == MASTER)) { /dde mirc command "" /echo -a 6,1[-Bawt-] 4,0You Kicked Me Master! }
  372. n370=    else  { dde mIRC Command "" /echo -a 6,1[-Bawt-] 4,0I Was Kicked On $chan By $nick | dde mIRC command "" /kick $chan $nick 4,1Don't Kick My Bot! %ver }
  373. n371=  }
  374. n372=  if $knick != me { 
  375. n373=    if $level($nick($address,3)) == MASTER { halt }   
  376. n374=    if $nick == %master { halt }
  377. n375=    else { echo 4 -a Not A Protected User }
  378. n376=  }
  379. n377=}
  380. n378=10:ON BAN:#: {
  381. n379=  if (($nick == $me) || ($nick == %master) || ($level($nick($address,3)) == MASTER)) { halt } 
  382. n380=  elseif ($banmask iswm $address($me,0)) { mode $chan -ob+b $nick $banmask $address($nick,4) | /kick $chan $nick Personal Ban Protetion | halt } 
  383. n381=  elseif ($level($banmask) == 80) { mode $chan -ob+b $nick $banmask $address($nick,4) | /kick $chan $nick Protected User | halt }
  384. n382=  elseif ($level($banmask) == MASTER) { mode $chan -ob+b $nick $banmask $address($nick,4) | /kick $chan $nick Protected User | halt }
  385. n383=  elseif ($level($banmask) == %master) { mode $chan -ob+b $nick $banmask $address($nick,4) | /kick $chan $nick Protected User | halt }
  386. n384=}
  387. n385=+50:ON TEXT:.voiceme:#:/mode $chan +v $nick
  388. n386=+50:ON TEXT:.voice*:#:/mode $chan +v $parm2
  389. n387=+50:ON TEXT:.unvoice*:#: { 
  390. n388=  if ($level($parm2($address,3)) > 5) { msg $nick Sorry, Can't Unvoice A Higher Level }
  391. n389=  if ($level($parm2($address,2)) == MASTER { msg $nick Sorry, Can't Unvoice A Master }
  392. n390=  if (($parm2 == $me) || ($parm2 == %master)) { msg $nick FORBIDDEN! }
  393. n391=  else { mode $chan -v $parm2 }
  394. n392=}
  395. n393=+50:ON TEXT:.kick*:?:/dde mirc command "" /echo 10 -a Level 50 User < $+ $nick $+ > Has Requested a kick of $parm2 <REASON>: $parm3*
  396. n394=+50:ON TEXT:.kb*:?:/dde mirc command "" /echo 10 -a Level 50 User < $+ $nick $+ > Has Requested a kick/ban of $parm2 <REASON>: $parm3*
  397. n395=+50:ON TEXT:.ban*:?:/dde mirc command "" /echo 10 -a Level 50 User < $+ $nick $+ > Has Requested a ban of $parm2 <REASON>: $parm3*
  398. n396=+50:ON TEXT:.act*:*:/describe $chan $parm2*
  399. n397=+50:ON TEXT:.say*:*:/msg $chan $parm2*
  400. n398=+50:ON TEXT:.commands:#:/play $nick $mircdir $+ /bawt/50cmds.txt
  401. n399=+80:ON TEXT:.commands:#:/play $nick $mircdir $+ /bawt/80cmds.txt
  402. n400=+80:ON TEXT:.opme:#:/mode $chan +o $nick
  403. n401=+80:ON TEXT:.deopme:#:/mode $chan -o $nick
  404. n402=+80:ON TEXT:.deop*:#:/mode $chan -o $parm2
  405. n403=+80:ON TEXT:.op*:#:/mode $chan +o $parm2
  406. n404=+80:ON TEXT:.voice*:#:/mode $chan +v $parm2
  407. n405=+80:ON TEXT:.unvoice*:#:/mode $chan -v $parm2
  408. n406=+80:ON TEXT:.topic*:#:/topic $chan $parm2*
  409. n407=+80:ON TEXT:.kick*:#: {
  410. n408=  if $parm2 == $me { kick $chan $nick Don't Try To Kick Me! }
  411. n409=  if $parm2 == %master { kick $chan $nick Don't Try To Kick My Master }
  412. n410=  if $parm2 == $null { msg $nick You Entered No Nick To Kick.....So who should i kick???? }
  413. n411=  else { kick $chan $parm2 You Were Kicked By ( $+ $nick $+ ) ( $+ $parm3* }
  414. n412=}
  415. n413=+80:ON TEXT:.ban*:#: {
  416. n414=  if $parm2 == $me { kick $chan $nick Don't Try To Ban Me! }
  417. n415=  if $parm2 == %master { kick $chan $nick Don't Try To Ban My Master! }
  418. n416=  if $parm2 == $null { msg $nick No Nick To Ban....So Who Should I Ban???? }
  419. n417=  else { ban $chan $parm2 3 }
  420. n418=}
  421. n419=+80:ON TEXT:.shit*:#: {
  422. n420=  if $parm2 == $me { msg $nick I Will Not Shitlist Myself }
  423. n421=  if $parm2 == %master { kick $chan $nick 10[1Not Funny10] }
  424. n422=  if $level($parm2($address,3)) == MASTER { halt }
  425. n423=  else { .guser $parm2 3 | kick $chan $parm2 2,15^*-_-*^*-_-*^*-_-*^12,1SHITLISTED2,12,15^*-_-*^*-_-*^*-_-*^  | /ignore -nti $nick 2 | ban $chan $parm2 3 }
  426. n424=}
  427. n425=+80:ON TEXT:.act*:*:/describe $chan $parm2*
  428. n426=+80:ON TEXT:.say*:*:/msg $chan $parm2*
  429. n427=+80:ON KICK:#: {
  430. n428=  if (($opnick  == $me) || ($opnick == %master) || ($level($address($opnick,3) == 80)) || ($level($address($opnick,3) == MASTER))) { halt }
  431. n429=  else { kick $chan $opnick 12(4ñ12) $+ 10Protected User! $+ 12(4ñ12) | ban -u30 $chan $nick 3 }
  432. n430=}
  433. n431=+80:ON DEOP:#: { 
  434. n432=  if (($nick  == $me) || ($nick == %master) || ($level($address($nick,3) == 80)) || ($level($address($nick,3) == MASTER))) { halt }
  435. n433=  else { mode $chan +o-o $opnick $nick | kick $chan $nick 12(4ñ12) $+ 10Protected User! $+ 12(4ñ12) | ban -u30 $chan $nick 3 }
  436. n434=}
  437. n435=+80:ON BAN:#: { 
  438. n436=  if (($nick  == $me) || ($nick == %master) || ($level($address($nick,3) == 80)) || ($level($address($nick,3) == MASTER))) { halt }
  439. n437=  else { mode $chan -b-o $banmask $nick | kick $chan $nick 12(4ñ12) $+ 10Protected User! $+ 12(4ñ12) | ban -u30 $chan $nick 3 }
  440. n438=}
  441. n439=+80:ON OP:#:mode $chan +v $opnick
  442. n440=;============================SHITLIST=================================
  443. n441=+666:ON JOIN:#:ban $chan $nick 3 | kick $chan $nick 2,15^*-_-*^*-_-*^*-_-*^12,1SHITLISTED2,12,15^*-_-*^*-_-*^*-_-*^ | ignore -u30 $parm2 2 
  444. n442=+666:ON TEXT:#:ban $chan $nick 3 | kick $chan $nick 2,15^*-_-*^*-_-*^*-_-*^12,1SHITLISTED2,12,15^*-_-*^*-_-*^*-_-*^ | ignore -u30 $parm2 2
  445. n443=+666:ON ACTION:#:ban $chan $nick 3 | kick $chan $nick 2,15^*-_-*^*-_-*^*-_-*^12,1SHITLISTED2,12,15^*-_-*^*-_-*^*-_-*^ | ignore -u30 $parm2 2
  446. n444=+666:ON NOTICE:#:ban $chan $nick 3 | kick $chan $nick 2,15^*-_-*^*-_-*^*-_-*^12,1SHITLISTED2,12,15^*-_-*^*-_-*^*-_-*^ | ignore -u30 $parm2 2
  447. n445=1:ON UNBAN:#: { if ($level($banmask) == 666) { mode $chan +b $banmask } }
  448. n446=;============================EVENTS END===============================
  449.